10 PRINTCHR$(147)CHR$(5):POKE53280,0:POKE53281,0
20 R=54272:A=1
30 N=INT(10*RND(1))+1:P=INT(10*RND(1))+1:Q=INT(15*RND(1))+1
40 V=INT(1000*RND(1))+1024:M=INT(255*RND(1))+1
50 IFV+N>2023THENV=V-N:GOTO40
60 IFV+(40*P)>2023THENV=V-(V0*P):GOTO40
70 FORZ=1TOP
80 FORX=1TON:POKEV+A,M:POKEV+A+R,Q:V=V+A:NEXT
90 V=V+40-N
100 NEXTZ:GOTO30